program sorteerimine2; var eesnimi, perenimi: array[1..1000] of string[20]; s, abiees, abipere: string; i, j, n, min: integer; fs, fv: text; procedure algus; var vahekoht: integer; begin assign(fs, 'tud2.txt'); assign(fv, 'tud2sort.txt'); reset(fs); rewrite(fv); n:=0; while not eof(fs) do begin n:=n+1; readln(fs, s); vahekoht:=pos(' ', s); eesnimi[n]:=copy(s, 1, vahekoht-1); perenimi[n]:=copy(s, vahekoht+1, length(s)-vahekoht); end; end; procedure sorteeri; begin for i:=1 to n-1 do begin min:=i; for j:=i to n do begin if perenimi[j]