Tfurute = record
kind :string;
amount. praice: Integer;
end;

var
fruits: array[0..2] of Tfuruts;