Ребятушки помогите родные!!!Дан символьный файл f.Группы символов,разбитые

на чем написать надобно? на паскале?

Извините пренебрегала. Да. нужен паскаль

чучуть не паскаль))))

на чем написать надобно? на паскале?

Извините пренебрегала. Да. нужен паскаль

чучуть не паскаль))))

Function PosBlank(s: string; cursor: integer): integer;
Возвращает позицию первого пробельного символа в строке s,
 начиная с позиции, обозначенной cursor. Если такового знака нет,
 возвращает 0.
var
  n: integer;
begin
  n := Length(s);
  while (s[cursor] lt;gt; ' ') and (cursor lt; n) do cursor := cursor + 1;
  if cursor = n then
    if s[cursor] = ' ' then PosBlank := n else PosBlank := 0
  else
    PosBlank := cursor
end;

function PosNonBlank(s: string; cursor: integer): integer;
Отдаёт позицию первого непробельного знака в строке s,
 начиная с позиции, указанной cursor. Если такового символа нет,
 возвращает 0.
var
  n: integer;
begin
  n := Length(s);
  while (s[cursor] = ' ') and (cursor lt; n) do cursor := cursor + 1;
  if cursor = n then
    if s[cursor] = ' ' then PosNonBlank := 0 else PosNonBlank := n
  else
    PosNonBlank := cursor
end;

procedure GetWord(s: string; var cursor: integer; var wd: string);
Процедура помещает в wd еще одно слово из строчки s
 Начало слова обозначено в cursor, после окончания процедуры
 cursor будет указывать на 1-ый пробельный знак,
 следующий за найденным словом. Фаворитные и хвостовые
 пробельные символы усекаются. Если слово не найдено, то
 в wd вмещается порожняя строчка
var
  n, ibegin: integer;
begin
  n := length(s);
  if ngt;0 then
    begin
    cursor := PosNonBlank(s, cursor);
    if cursor gt; 0 then
    begin
      ibegin := cursor;
      cursor := PosBlank(s, cursor);
      if cursor gt; 0 then wd := Copy(s, ibegin, cursor - ibegin)
      else wd := Copy(s, ibegin, n - ibegin + 1)
    end
    else
      wd := ''
    end
  else
    begin
    wd:='';
    cursor:=0
    end
end;

var
  c, cc, w: string;
  ic: integer;
  fin, fout: Text;

begin
  Assign(fin, 'input.txt');
  Reset(fin);
  Assign(fout, 'output.txt');
  Rewrite(fout);
  while not Eof(fin) do
  begin
    ic := 1;
    cc := '';
    readln(fin, c);
    while ic gt; 0 do
    begin
      GetWord(c, ic, w);
      if w lt;gt; '' then cc := cc + ' ' + w
    end;
    cc := Copy(cc, 2, length(cc) - 1);
    writeln(fout, cc)
  end;
  Close(fin);
  Close(fout);
end.

Program gt;
var f,g:text;
s,b:string;
l,i:integer;
begin
assign(f,'c:\input.txt');reset(f);
assign(g,'c:\output.txt');rewrite(g);
while not eof(f)do
begin
readln(f,s);
l:=length(s);
b:='';
if (s[2]lt;gt;' ') then b:=s[1];
i:=1;
while ilt;l-1 do
begin
i:=i+1;
if (s[i-1]=' ') and (s[i]lt;gt;' ') and (s[i+1]=' ') then i:=i+1 else b:=b+s[i];
end;
if (s[l-1]lt;gt;' ') then b:=b+s[l];
writeln(g,b);
end;
close(f);
close(g);
end.