ФИО, работа со строками

[JUDAS]

да одна

 writeln('familia name otchestvo ');readln(fio);

[Poma][a]

Сообщение от JUDAS

да одна

 writeln('familia name otchestvo ');readln(fio);

fio,R : string;

[JUDAS]

R - результирующая строка

[Poma][a]

все равно их там 2 а мне нужна только одна, ну помогите пожалуйста мне очень надо посмотрите мой код скажите как этого можно избежать плиз...

[JUDAS]

Ваш код - каша с кучей ошибок

program Project1;
var
  fio  : string;
  p,i  : integer;
begin
  writeln('familia name otchestvo ');readln(fio);
  // удаляем двойные пробелы
  while Pos('  ', fio)>0 do
  delete(fio, Pos('  ', fio),1);
  // удаляем пробелы вначале
  while (fio<>'') and (fio[1]=' ') do
  delete(fio, 1, 1);
  // удаляем пробелы в конце
  while (fio<>'') and (fio[length(fio)]=' ') do
  setlength(fio, LenGth(fio)-1);
  p:=0;
  for i:=LenGth(fio) downto 1 do
  if (fio[i]=' ') then
  begin
   case p of
    0: begin
        fio[i]:=fio[i+1];
        fio[i+1]:= '.';
        Delete(fio, i+2, LenGth(fio)-i+1);
       end;
    1: begin
        fio[i+2]:= '.';
        fio[i+3] := fio[Length(fio)-1];
        fio[i+4] := fio[Length(fio)];
        Delete(fio, i+4, LenGth(fio)-i-4);
        break;
       end;
   end;
   inc(p);
  end;
  writeln(fio);

end.

только одна строка

[Poma][a]

Сообщение от JUDAS

Ваш код - каша с кучей ошибок
только одна строка

мне нуден ИМЕННО мой код, да помогите же....