вводится текстовая строка

[Nya22]

По символьно вводится текстовая строка.Признаком конца строки является точка..необходимо выяснить является ли введенный текст "колиндромом"..

[Chertenok_n_13]

колиндромом? может палиндром?

[Nya22]

да...просто ошиблась,когда писала.

[Chertenok_n_13]

uses crt;
var
  str, str1: string;
  c: char;
  i,j: Integer;
  begin
  clrscr;

str1:='';
  writeln('vvedite vashu stroku. Konec stroki simvol "."');
  while c<>'.' do begin
  c:=readkey;
  write(c);
  if c<>'.' then str1:=str1+c;
  end;
  str:='';
  j:=length(str1);
  i:=1;
  while j>=i do begin
  str:=str+str1[j];
  dec(j); end;
  clrscr;
  writeln('ishodnaja stroka: ', str1);
  if (str1=str) then writeln('stroka polindrom') else writeln('stroka ne polindrom');
  readln;
  end.

[BDA]

Chertenok_n_13, во-первых, не забывайте о кнопочке решетка для оформления кода.
Во-вторых, стоит учитывать, что в паскале длина строки ограничена (так что больше 255 символов не вводить ).
В-третьих, раз уж используете 2 строки, то:

uses crt;
var
  str1, str2: string;
  c: char;
begin
  clrscr;
  с := '1';
  str1 := '';
  str2 := '';
  writeln('vvedite vashu stroku. Konec stroki simvol "."');
  while c <> '.' do
  begin
    c := readkey;
    if c <> '.' then
    begin
      str1 := str1 + c;
      str2 := c + str2;
    end;
  end;
  if str1 = str2 then
    writeln('stroka polindrom')
  else
    writeln('stroka ne polindrom');
  readln;
end.

[Chertenok_n_13]

офф: я не думаю, что это на столько принципиальность про две строки.
а про оформления кода извиняюсь... запамятовала.