Упорядочить строковый массив, В тупике, нужно только исправить маленькие ошибки Опции

[kvadrat]

Условие:

program TOV_cena;
 var p:array [1..8] of string[50];s:array[1..8] of integer;
 sort:boolean;i,n1,f,h:integer;
 st:string[50];
begin
  writeln('‚ўҐ¤ЁвҐ н«Ґ¬Ґ­вл ¬ бЁў ');
   for i:=1 to 8 do
    readln(p[i]);
    for i:=1 to 8 do
  begin {n1-Ї®§ЁжЁп 1-®Ј® Їа®ЎҐ«  ў бва®ЄҐ}
   n1:=pos(' ',p[i]);
   st:=copy(p[i],n1+1,length(p[i])-n1);
   {f-業  в®ў а }
   val(copy(p[i],n1+1,length(p[i])),f,h);
  end;
sort:=false;
 while not sort do
  begin sort:=true;
    for i:=1 to 7 do
    if p[i]>p[i+1] then
   begin
    st:=p[i]; p[i]:=p[i+1]; p[i+1]:=st;
    h:=s[i]; s[i]:=s[i+1]; s[i+1]:=h;
    sort:=false
   end;
  end;
 for i:=1 to 8 do writeln(p[i]);
end.

Тысячу спасиб и + в репу спасителю