Структура MARSH

program pr3; uses crt;
const n=3;
type marsh=record
   nach:string;
   kon:string;
   nomer:integer;
   end;
   var z:array[1..n] of marsh ;
   i,j,t,min,k:integer; c,f:string;
begin clrscr;
      for i:=1 to n do begin
          writeln('dannye ', i,'marshryta');
          readln(z[i].nach);
          readln(z[i].kon);
          readln(z[i].nomer);
          end;
      for i:=1 to n-1 do begin
           min:=z[i].nomer; k:=i;
           for j:=i+1 to n do begin
           if min>z[j].nomer then begin
           min:=z[j].nomer;k:=j;
           end;end;
           c:=z[i].nach;
           z[i].nach:=z[k].nach;
           z[k].nach:=c;
           c:=z[i].kon;
           z[i].kon:=z[k].kon;
           z[k].kon:=c;
           t:=z[i].nomer;
          z[i].nomer:=z[k].nomer;
           z[k].nomer:=t;
           end;
           for i:=1 to n do begin
      write(z[i].nach:20,z[i].kon:10, z[i].nomer:4);
      writeln;
          end;
      writeln('vvedite nomer');
      readln(t);
      k:=0;
      for i:=1 to n do begin
      if t=z[i].nomer then begin k:=1;
         write(z[i].nach:20,z[i].kon:10,z[i].nomer:4);
         writeln;
          end;
          end;
          if k=0 then writeln('takogo net');
          readln;
end.