Даны четыре слова одинаковой длины. напечатать сообщение о наличии или отсутствии одинаковых слов и это слово (в программе pascal)

Var

s1, s2, s3, s4:string;

k:integer;

begin

writeln ('Введите 1 слово:') ;

readln (s1) ;

writeln ('Введите 2 слово:') ;

readln (s2) ;

writeln ('Введите 3 слово:') ;

readln (s3) ;

writeln ('Введите 4 слово:') ;

readln (s4) ;

writeln ('Список одинаковых слов') ;

if (s1=s2) or (s1=s3) or (s1=s4) then begin k:=1; writeln (s1) ; end;

if (s2=s3) or (s2=s4) then begin k:=1; writeln (s2) ; end;

if s3=s4 then begin k:=1; writeln (s3) ; end;

if k=0 then writeln ('Одинаковых слов нет') ;

end.