Вывод отсортированного массива в файл

const N=10; M=25;
type t=array [1..M] of char;
     tt=array [1..N] of t;
var i, k: byte;
    A: tt;
begin
    assign(output, 'res.out');
    rewrite(output);
    assign(input, 'dan.in');
    reset(input);
    for i:=1 to N do
        for k:=1 to M do begin
            read(A[i, k]);
            if (A[i, k] = #10) then
                break;
    end;
    for i:=1 to N do
        for k:=1 to M do begin
            write(A[i, k]);
            if (A[i, k] = #10) then
                break;
        end;
    writeln;
    writeln;
    close(input);
    close(output);
end.

const N=10; M=28;
type t=array [1..M] of char;
     tt=array [1..N] of t;
var i, k: byte;
    A: tt; Temp: t;
begin
    assign(output, 'res.out');
    rewrite(output);
    assign(input, 'dan.in');
    reset(input);
    for i:=1 to N do
        for k:=1 to M do begin
            read(A[i, k]);
            if A[i, k]=#10 then
                break;
        end;
    for i:=1 to N do
        for k:=1 to M do begin
            write(A[i, k]);
            if A[i, k]=#10 then
                break;
        end;
    writeln;
    close(input);
    close(output);
end.

const
  n=10; pn=4;
  position: array [1..pn,0..11] of Char = (
    'техник','инженер','ст.инженер','вед.инженер');
var
  p: array [1..pn,1..n,0..20] of Char;
  c: array [1..pn] of Integer;
  b: array [0..255] of Char;
  i, j, k, m: Integer;
begin
  Assign(input,'input.txt'); Reset(input);
  Assign(output,'output.txt'); Rewrite(output);
  for i:=1 to n do begin
    ReadLn(b);
    j:=0;
    while (b[j]<>#0) and (b[j]<>' ') do Inc(j);
    if b[j]=#0 then continue;
    b[j]:=#0; Inc(j);
    while (b[j]=' ') do Inc(j);
    for m:=1 to 4 do begin
      k:=0;
      while (b[j+k]<>#0) and (position[m,k]<>#0) 
        and (b[j+k]=position[m,k]) do Inc(k);
      if b[j+k]=position[m,k] then begin
        Inc(c[m]);
        k:=0;
        while (b[k]<>#0) do begin
          p[m,c[m],k]:=b[k]; Inc(k);
        end;
      end;
    end;
  end;
  for m:=1 to pn do
    for i:=1 to c[m] do
      WriteLn(p[m,i],' ',position[m]);
  Close(input); Close(output);
end.