Решение задач на Pascal. Вывод литер, присутствующих в обеих строках

Постановка задачи: Составить подпрограмму, которая вводит две строки s1 и s2 и выводит s3, содержащую литеры присутствующие, по крайней мере, однократно в общих строках. (Например, s1=’молоко’, s2=’кромка’, s3=’ком’).

Код программы

	program lab2;
	var s1,s2,s3: string;
	function presentLetters(s1,s2: string): string;
	var s3:string;
	i:integer;
	begin
	for i:=1 to Length(s2) do
	if((pos(s2[i],s1)>0) and (pos(s2[i],s3)=0)) then s3:=s3+s2[i];
	presentLetters:=s3;
	end;
	begin
	Writeln('Введите s1:');
	Readln(s1);
	Writeln('Введите s2:');
	Readln(s2);
	s3:=presentLetters(s1,s2);
	Writeln('Литеры, присутсвующие в обеих строках: ',s3);
	end.

view raw Lab2.pas hosted with ❤ by GitHub

Схема алгоритма