Обработка последовательностей символов

var s:string;
begin
 write('s = ');readln(s);
 while pos('..',s)>0 do delete(s,pos('..',s),1);
 writeln('s'' = ',s);
end.

var s, t: string;
    i: integer;
begin
  t := '';
  writeln('Введите строку:');
  readln(s);
  s := ' ' + s;
  for i := length(s) downto 2 do
    if (s[i] <> '.') or (s[i - 1] <> '.')
      then t := s[i] + t;
  s := t;
  writeln('Преобразованная строка:');
  write(s);
  readln
end.

  for i := byte(s[0]) downto 2 do

var
  s: String;
  i, j: Integer;
begin
  Write('Строка: '); ReadLn(s); j:=1;
  for i:=2 to Length(s) do begin
    if (s[i-1]<>'.') or (s[i]<>'.') then Inc(j);
    s[j]:=s[i];
  end;
  {TP: s[0]:=Chr(j);}
  {FPC: SetLength(s,j);}
  s:=Copy(s,1,j); {универсально}
  WriteLn(s);
end.

{$IFDEF VER55}{$DEFINE TP}{$ENDIF}{$IFDEF VER60}{$DEFINE TP}{$ENDIF}
{$IFDEF VER70}{$DEFINE TP}{$ENDIF}{$IFDEF TP}
procedure SetLength(var s: String; l: Byte); begin s[0]:=Char(l) end;
{$ENDIF}
var
  s: String;
  i, j: Integer;
begin
  Write('Строка: '); ReadLn(s); j:=1;
  for i:=2 to Length(s) do begin
    if (s[i-1]<>'.') or (s[i]<>'.') then Inc(j);
    s[j]:=s[i];
  end;
  SetLength(s,j);
  WriteLn(s);
end.

var p, q: Char;
begin
  Write('Строка: '); {p:=' ';}
  while not EoLn do begin
    Read(q); if (p<>'.') or (q<>'.') then Write(q); p:=q;
  end; WriteLn;
end.