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

помогите составить блок схему к программе

vars1,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.