Lazarus (Free Pascalban) hogy kell szavakat sorbarendezni? (Nagyjából kész van, de csak a hosszokat tudom kiiratni. )

Javítva:*

begin

assign(ki,'szavak.txt');

rewrite(ki);

for i:=1 to n-1 do

begin

for j:=i+1 to n do

if t[j].hossz<t[i].hossz then

begin

c:=t[j].hossz;

t[j].hossz:=t[i].hossz;

t[i].hossz:=c;

end;

end;

for i:=1 to n do

writeln(ki,t[i].hossz); {ide ha t[i].szot irok nem jól irja ki.);

close(ki);

program erettsegi;

uses crt;

const maxn=600;

type

szavak=record

szo:string[15];

hossz:integer;

end;

tomb=array[1..maxn]of szavak;

var

t:tomb;

n:integer;

procedure Feladat1(var t:tomb;var n:integer);

var

be:text;

i:integer;

begin

assign(be,'lista.txt');

reset(be);

i:=0;

while not eof(be) do

begin

i:=i+1;

readln(be,t[i].szo);

t[i].hossz:=length(t[i].szo);

end;

close(be);

n:=i;

end;

-----------Feladatok és jön

procedure Feladat6(t:tomb;n:integer);

var

ki:text;

i,c,j,d:integer;

begin

for i:=1 to n-1 do

begin

for j:=i+1 to n do

if length(t[j].szo)<length(t[i].szo) then

begin

c:=t[j].hossz;

t[j].hossz:=t[i].hossz;

t[i].hossz:=c;

end;

end;

assign(ki,'szavak.txt');

rewrite(ki);

for i:=1 to n do

writeln(ki,t[i].szo);

close(ki);

end;