String4

//napisati program pomocu koga se provjerava da li je dati string palindrom
program st5;
var
s1,s2,s3,s4:string;
i,j:integer;
pal:boolean;

procedure IzbaciBlanko(s1:string; var s2:string);
var k:integer;
begin
 s2:=s1;
 while pos(' ',s2)>0 do
    delete(s2,pos(' ',s2),1);
end;

procedure SmanjiSlova(s1:string; var s2:string);
var i:integer;
    slovo,novo:char;
begin
    s2:=s1;
    for i:=1 to length(s2) do
    begin
        slovo:=s2[i]; //ord('a')=97
        if('A'<=slovo) and (slovo<='Z') then
            novo:=char(ord(slovo)-ord('A')+ord('a'))
            else novo:= slovo;
        s2[i]:=novo;
    end;
end;


begin
write('string: '); readln(s3);
IzbaciBlanko(s3,s2); writeln(s3); writeln(s2);
SmanjiSlova(s2,s1); writeln(s2); writeln(s1);

pal:=true; i:=1; j:=length(s1);
while (i<j) and pal do
    begin
    pal:=(s1[i]=s1[j]);
    i:=i+1;
    j:=j-1;
    end;
if pal then write ('je palindrom.')
else write('nije palindrom.');
readln;
end.