Оформить в виде процедуры

[ALena77]

Оформить в виде процедуры:

Assign(f1, 'inp.txt');
Rewrite(f1);
writeln('количество вводимых строк файл 1');
readln(n);
for i:=1 to n do
begin
readln(s);
writeln(f1,S);
end;
Close(f1);
Assign(f2, 'inp1.txt');
Rewrite(f2);
writeln('количество вводимых строк файл 2');
readln(n);
for i:=1 to n do
Begin
readln(S1);
writeln(f2,s1);
end;
close(f2);

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(это кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!

Модератор.

[Serge_Bliznykov]

какой вопрос, такой и ответ.

Оформить в виде процедуры:

procedure Proc1;
var i,n:integer;
  s:string;
begin
   Assign(f1, 'inp.txt');
   Rewrite(f1);
   writeln('количество вводимых строк файл 1');
   readln(n);
   for i:=1 to n do
   begin
     readln(s);
     writeln(f1,s);
   end;
   Close(f1);
   Assign(f2, 'inp1.txt');
   Rewrite(f2);
   writeln('количество вводимых строк файл 2');
   readln(n);
   for i:=1 to n do
   Begin
     readln(s);
     writeln(f2,s);
   end;
   close(f2);
end;