Családneveket kell turbo pascalba sorrendbe rakni. Hogy kell ezt megcsinálni? Csak a programrészlet kellene.

program sorrend;

uses crt;

var

t : array[1..10] of string;

i, j, min : byte;

begin

clrscr;

for i:=1 to 10 do

begin

write('Kérem a(z) ',i,'. nevet: ');

readln(t[i]);

end;

for j:=1 to 10 do

begin

min:=j;

for i:=j to 10-j do

if t[i] < t[min] then min:=i;

writeln(t[min]);

end;

repeat until keypressed;

end.