Вывести обработанный массив на экран

program focstrot;
TYPE
focstr=record
name : string[10];
marc : string [10];
count : string [10];
cena : string [5];
kol : string [4];
end;
Var st:array [1..50]  of focstr;n,i,j:integer;
procedure input(var n:integer);
var
i:integer;
fl:char;
begin
writeln('|naimenovanie| marka | strana |sena  |kolichestvo|'); 
 
for i:=1 to 50 do
begin
with st[i] do
begin
readln( kol, name, marc, count, cena ); writeln('_______________________________');
end;
n:=i;
write('zaconchit vvod Y/N'); readln( fl  );
if fl='y' then Exit;
end;
end;
 
procedure sort(n:integer);
var k,i : integer;
st2:focstr; fl:boolean; kr:integer;
begin
 
writeln(' vvedite kriterii sortirovki    ');
 
writeln('imiya -  1 ');
 
writeln(' marca - 2 ');
 
writeln(' strana- 3 ');
 
writeln(' sena - 4  ');
      readln(kr);
if kr=1 then begin
k:=1;
 repeat
fl:=true;
for i:=1 to n-1 do
begin
if copy(st[i].name,1,1)>copy(st[i+1].name,1,1)then
begin
 st[i]:=st[i+1];
st[i+1]:=st2 ; fl:=false;
end;
inc(k);
end
until fl  end
else if kr=2 then begin
 
k:=1;
 repeat
fl:=true;
for i:=1 to n-1 do
begin
if copy(st[i].marc,1,1)>copy(st[i+1].marc,1,1)then
begin
 st[i]:=st[i+1];
st[i+1]:=st2 ; fl:=false;
end;
inc(k);
end
until fl  end
else if kr=3 then begin
 
k:=1;
 repeat
fl:=true;
for i:=1 to n-1 do
begin
if copy(st[i].count,1,1)>copy(st[i+1].count,1,1)then
begin
 st[i]:=st[i+1];
st[i+1]:=st2 ; fl:=false;
end;
inc(k);
end
until fl end
else if kr=4 then  begin
 
k:=1;
 repeat
fl:=true;
for i:=1 to n-1 do
begin
if copy(st[i].cena,1,1)>copy(st[i+1].cena,1,1)then
begin
 st[i]:=st[i+1];
st[i+1]:=st2 ; fl:=false;
end;
inc(k);
end
until fl end
else if kr=5 then begin
 
k:=1;
 repeat
fl:=true;
for i:=1 to n-1 do
begin
if copy(st[i].kol,1,1)>copy(st[i+1].kol,1,1)then
begin
 st[i]:=st[i+1];
st[i+1]:=st2 ; fl:=false;
end;
inc(k);
end
until fl end
else if kr>6 then Exit;
 
for i:=1 to n-1 do
 writeln (st2[i]);
   end;
end;
 
begin
input(n);
sort(n);
end.

procedure print(t:focstr);
begin
 writeln(t.name:11,t.marc:11,t.count:11,t.cena:6,t.kol:5);
end;