[manik136]

Код:

Program primer;
Var f1,f2:text;
    I,n: integer;
    S: string;
    a:char;
    k:string;
Begin

    Assign(f1,'1.txt');
   reset(f1);
   assign(f2,'2.txt);
   rewrite(f2);
    while (not(eof(f1))) and a<>#10#13 do
    begin
     readln(f1,s);
      for i:=1 to length(s) do

Admin: Не забываем про теги!