Даны четыре слова одинаковой длины. напечатать сообщение о наличии или отсутствии одинаковых слов и это слово( в программе 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.