Лабораторные работы / Laba4 / Untitled0

function search(ch: char; arr: array of char; an: integer): boolean;
	const j:integer = 0;
	begin
		repeat
			j:=j+1;
		until (j > an) or (arr[j] = ch);
		if j < an then
			search:=true
		else
			search:=false;
	end;

for i:=0 to 255 do {Просматриваем все символы из таблицы.}
		if search(chr(i), a, an) or search(chr(i), b, bn) then
			//Добавляем в массив С