uses crt;
var i,max,rr,vv,size:integer;
    vnam1,vnam2:string;
    nam1:array[1..10] of string;
    nam2:array[1..10] of string;
    r:array[1..10] of integer;
    v:array[1..10] of integer;
begin
clrscr;
writeln('Введите кол-во учеников в классе');
readln(size);
FOR i := 1 TO size do
begin
clrscr;
writeln('Введите фамилию ученика, имя, рост, вес через Enter');
readln(nam1[i]);
readln(nam2[i]);
readln(r[i]);
readln(v[i]);
end;
clrscr;
max := r[1];
FOR i := 1 TO size do
begin
IF r[i] > max THEN
begin
vnam1 := nam1[i];
vnam2 := nam2[i];
rr := r[i];
vv := v[i];
max:=r[i];
end;
end;
clrscr;
writeln('самый высокий ученик');
writeln('Фамилия', 'Имя':10, 'Рост':10, 'Вес':10);
writeln(vnam1, vnam2:12, rr:12, vv:12);
end.