给出一个整数n,接下来有n个整数,你要求出这n个整数中的最大值.用pascal做

给出一个整数n,接下来有n个整数,你要求出这n个整数中的最大值.用pascal做
给出一个整数n,接下来有n个整数,你要求出这n个整数中的最大值.用pascal做

给出一个整数n,接下来有n个整数,你要求出这n个整数中的最大值.用pascal做
(1)a>=0
var
n,i,lenm:longint;
max,a:ansistring;
begin
readln(n);
lenm:=0;
max:='';
for i:=1 to n do
begin
readln(a);
if lenm