пока чего, вот этого я не понимаю организация такого цикла должна быть
пока function {<..>..=} constant(или др. function)

например while a<b do
begin
end;

очень много ошибок в плане прерывания цикла if..else ктож так ; расставляет..

--продолжение--
после вводов массивов идем на проверку совпадений:
i:=1; j:=1;
While a[i]=b[j] do
begin
x:=1;
i:=i+1;
j:=j+1;
end;

щас разберусь как сделать если нет совпадения