[lxa85]

idlazarev_alex@vk, список вы генерируете в цикле, правильном, вложенном.

Код:

for i:=1 to 2 do
  for k:=1 to 10 do
    x[i,k]:=random(10);

А проверяете одно единственное условие, без циклов.

Код:

if x[1,k]>x[2,k] then
write(x[1,k], ' ');

[pavsem7]

по идее нужен цикл, только не знаю где.. »

Перед последним begin по-видимому надо прописать шапки циклов. Хотя 31.10.16 было давно и это не актуально.