В файле хранится информация, записанная азбукой Морзе («буквы» разделены одним пробелом, а «слова» — произвольным числом пробелов). В новый файл записать информацию таким образом, чтобы каждое слово хранилось в отдельной строке (знаки препинания в новый файл не переписываются) — Pascal(Паскаль)

Uses Crt;
   Var
      A,X:Array[1..25,1..25] of Char;
      m,i,j:byte;
      C:Char;
      f:text;
      Fname:string;
 
Procedure Zapolnenie;
   Begin
      Write('= ');
      Readln(m);
         For i:= 1 to 1 do
            For j:= 1 to m do
               Begin
                  Write(j,'-ï ¡ãª¢* ');
                  Readln(A[i,j]);
               End;
                   ClrScr;
                     For i:=1 to 1 do
                        Begin
                           For j:=1 to m do
                              Write (A[i,j]:2);
                              Writeln;
                        End;
   End;
Procedure  Stroka;
 
 
END;
BEGIN
ClrScr;
Write ('‚¢¥¤¨â¥ ¯®«*®¥ ¨¬ï ä*©«* ');
Readln(Fname);
Assign(F,Fname);
Rewrite(F);
Zapolnenie;
ReadKey;
For j:=1 to m do
Write(F,A[i,j]);
Writeln(F);
Writeln(F);
For j:=1 to m do
Writeln(F,A[i,j]);
Writeln(F);
For j:=1 to m do
Writeln(F,x[i,j]);
Close(f);
End.