Пролема с символьными строками

Uses crt;
var s1,s2,s3,s4:string[10];
     f:text;
     i, max,nmax:string
begin
assign(f,'symbol.pas');
reset(f);
 begin
 read(f,s1,s2,s3,s4);
 end;
max:='z';
Nmax:='d';
 begin
 if {Вот здесь я понятия не имею что ставить}>max then begin
                                                                               max:={тоже самое};
                                                                               nmax:={-ll-};
                                                                               end;
{дальше вообще не думается - может поможете?}

uses crt;
var f:text;
    s:string;
    i:byte;
begin
clrscr;
assign(f,'symbol.pas');
rewrite(f);
for i:=1 to 10 do
 begin
  readln(s);
  writeln(f,s);
 end;
close(f);
end.

uses crt;
var f:text;
    a:array[1..100] of string;
    s:string;
    n,i,j:byte;
begin
clrscr;
assign(f,'symbol.pas');
reset(f);
n:=0;
while not eof(f) do
 begin
  readln(f,s);
  n:=n+1;
  a[n]:=s;
 end;
close(f);
for i:=1 to n-1 do
for j:=i+1 to n do
if a[i]>a[j] then
 begin
  s:=a[i];
  a[i]:=a[j];
  a[j]:=s;
 end;
writeln('Строки файла по возрастанию:');
for i:=1 to n do
writeln(a[i]);
readln
end.