Программа на паскале. на модули и структуры - Pascal - Ответ 4849178

UNIT UNREAD;
Interface
    Type
        vec = array [1..1000] of real;
        vec2 = array [1..100, 1..100] of integer;
    Var
        mas: vec;
        mas2: vec2;
        mas3: vec2;
        i,j, n, m: integer;
        fin, fout: text;
        Procedure ReadFirst(Var mas: vec);
        Procedure WriteFirst(mas: vec);
        Procedure ReadSecond(Var mas: vec2);
        Procedure WriteSecond(mas: vec);
        Procedure ReadThird(Var mas: vec2);
        Procedure WriteThird(mas: vec2);
Implementation
   Function IOResult : Integer;
    Procedure ReadFirst(Var mas: vec);
     var I: integer;
        begin
            {$I-} assign(fin, 'first.in'); {$I+}
    
            {if IoResult <> 0 then
                begin
                    Writeln('No input file');
                    halt;
                end;
}
            assign(fout, 'first.out');
            Reset(fin);
            Rewrite(fout);
 
            readln(fin, n);
            for i:=1 to n do
             read(fin, mas[i]);
 
            close(fin);
        end;
 
    Procedure WriteFirst(mas: vec);
    var I: integer;
        begin
            for i:=1 to n - 3 do
                write(fout, mas[i], ' ');
 
            close(fout);
        end;
 
    Procedure ReadSecond(Var mas: vec2);
        begin
        var i,j:integer;
            {$I-} assign(fin, 'second.in'); {$I+}
    
            if IoResult <> 0 then
                begin
                    Writeln('No input file');
                    halt;
                end;
 
            assign(fout, 'second.out');
            Reset(fin);
            Rewrite(fout);
            
            read(fin, n);
            read(fin, m);
 
            for i:=1 to n do
                begin
                for j:=1 to m do
                    begin
                        read(fin, mas[i, j]);
                    end;
                end;
 
            close(fin);
        end;
 
    Procedure WriteSecond(mas: vec);
        begin
        var i,j : integer;
            for i:=1 to 3 do
                write(fout, mas[i], ' ');
 
            close(fout);
        end;
 
            Procedure ReadThird(Var mas: vec2);
 begin
 if not fileexits('third.in') then ----неизвестное имя файля... обьявить его где? и какой тип данных лучше присвоить?
  begin
    Writeln('No input file');
    halt;
   end
 else reset(fin);
 assign(fout, 'third.out');
 
            assign(fout, 'third.out');
            Reset(fin);
            Rewrite(fout);
            
            readln(fin, n);
            for i:=1 to n do
                begin
                for j:=1 to n do
                    begin
                        read(fin, mas[i, j]);
                    end;
                end;
 
            close(fin);
        end;
 
    Procedure WriteThird(mas: vec2);
        begin
            for i:=1 to n do
                begin
                for j:=1 to n do
                    begin
                        write(fout, mas[i, j], ' ');
                    end;
                writeln(fout);
                end;
 
            close(fout);
        end;
 
Begin
end;
End.