Рост студентов(в группе 12 человек).Составить программу для определения номера по журналу самого высокого студента с обработкой данных во время ввода — Pascal(Паскаль)

uses crt;
const n=12;
var a,i,mx,imx:integer;
begin
clrscr;
mx:=0;imx:=1;
for i:=1 to n do
 begin
  write('Rost ',i,'=');
  readln(a);
  if a>mx then
   begin
    mx:=a;
    imx:=i;
   end;
 end;
write('Samyj vysokij # ',imx,' rost=',mx);
readln
end.