Из паскаля в делфи

[Berus]

Дан целочисленный вектор А(n). Подсчитать количество нулевых элементов вектора, предшествующих последнему максимальному элементу.

Количество вводится в edit1, матрица должна вводиться в компонент StringGrid1, количество нулевых элементов должно выводиться в Edit2
Что нужно изменить?

cоnst nmax = 100; 
var a:array[1..nmax] of real; 
mx:integer; 
count:integer; 
i,n:integer; 
begin 
write('n='); 
readln(n); 
for i:=1 to n do 
begin 
write('[',i,']='); 
readln(a); 
end; 
writeln('BeKTop:'); 
mx:=1; 
for i:=1 to n do 
begin 
if a>=a[mx] then mx:=i; 
write(a); 
end; 
writeln; 
count:=0; 
Writeln('# of Max:',mx,' Value: ',a[mx]); 
for i:=1 to mx do 
if a=0 then count:=count+1; 
writeln('Count of zero before Maximum:',count); 
readln; 
end.

[hon]

Ну у вас и код. Со стринггридом давно не работал.

procedure Button1Click(Sender:TObject);
cоnst nmax = 100; 
var
  a:array[1..nmax] of real; 
  mx:integer; 
  count:integer; 
  i,n:integer; 
begin 
   Memo1.Lines.Add('n='); 
   n:=StrToInt(Edit1.Text);
   for i:=1 to n do 
       begin 
       Memo1.Lines.Add('[',i,']='); 
       readln(a); // а это уже сам переводи
       end; 
   writeln('BeKTop:'); 
   mx:=1; 
   for i:=1 to n do 
       begin
       if a>=a[mx] then mx:=i; 
       Memo1.Lines.Add(a); 
   end; 
   Memo1.Lines.Add('');
   count:=0; 
   Memo1.Lines.Add('# of Max:',mx,' Value: ',a[mx]); 
   for i:=1 to mx do 
       if a=0 then count:=count+1; 
   Edit2.Text:=IntToStr(count); 
   readln; 
end;