program palindrom;

function ReverseStr (s : string) : string;
var
  i, j, len : integer;
  s2 : string;
begin
  s2 := s;
  len := length (s);
  i := 1;
  j := len;
  while i <= len do begin
    s2 [i] := s [j];
    i := i + 1;
    j := j - 1;
  end;
  ReverseStr := s2;
end;

var
  s, s1, s2 : string;
  len, i, j, p : integer;
begin
  writeln ('Vvedite stroku, razdelennuyu probelami:');
  readln (s);
  repeat
    p := pos (' ', s);
    if p <> 0 then begin
      s1 := Copy (s, 1, p - 1);
      delete (s, 1, p);
      write (s1, ' - ');
      s2 := ReverseStr (s1);
      if (s1 = s2) then
        writeln ('Palindrom')
      else
        writeln ('Ne-a, ne palindrom');
    end;
  until p = 0;
end.

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
var
comp,chel:integer;
i:integer;

procedure TForm1.Button1Click(Sender: TObject);
begin
Randomize;
comp:=random(10);
i:=0;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
i:=i+1;
chel:=StrToInt(edit1.Text);
If chel>comp then
Begin
  ShowMessage('Попытка номер '+IntToStr(i)+#10+'Это число меньше  '+Edit1.Text);
end;
If chel<comp then
Begin
  ShowMessage('Попытка номер '+IntToStr(i)+#10+'Это число больше  '+Edit1.Text);
end;
If chel=comp then
Begin
  ShowMessage('Попытка номер '+IntToStr(i)+#10+'Ты угадал это число!  '+Edit1.Text);
  ShowMessage('Выходим');
  Form1.Close;
end;
end;

end.