Giải bằng Free Pascal giúp em với ạ Cho danh sách gồm N bạn học sinh, mỗi em gồm HỌ TÊN và điểm số môn Tin học. Viết chương trình tìm HỌ TÊN của bạn có điểm cao nhất. Ràng buộc: - 1 < N < 111 - Điểm số là một số thực dương 10. - Nếu có nhiều người cùng điểm cao nhất thì chỉ lấy họ tên người đầu tiên trong danh sách. Ví dụ input 3 Le Van Hung 9.5 Tran Tien 7.8 Vo Nam 9.5 output Le Van Hung

Đầu tiên nhập n và nhập xâu và số thập phân ( theo n ) và rồi so sánh số thập phân

______________________Phần Code______________________

*Pascal:

var a,tam,lon:ansistring;
n,i,code,j:longint;
t,max:real;
begin
readln(n);
max:=0;
for i:=1 to n do
begin
tam:='';
readln(a);
for j:=length(a) downto 1 do
begin
tam:=a[j]+tam;
if a[j-1]=#32 then
begin
val(tam,t,code);
if t>max then
begin
max:=t;
lon:=copy(a,1,j-2);
end;
break;
end;
end;
end;
writeln(lon);
end.

uses crt;
type arr=record
        name:string;
        score:real;
end;
var i,t,n:longint;
max:real;
a:array[1..111] of arr;
begin
clrscr;
readln(n);
max:=0;
for i:=1 to n do
 with a[i] do
 begin
  readln(name);
  readln(score);
  if (max<score) then
   max:=score;
 end;
for i:=1 to n do
 if a[i].score=max then
 begin
  write(a[i].name);
  break;
 end;
readln
end.