В ПАСКАЛЕ СДЕЛАТЬ:
Дан массив из 20 элементов, созданный случайным образом, значения элементов которого находится в диапазоне [-20,20]. Вывести в файл четные элементы массива. Если таких чисел нет, то вывести сообщение об этом факте.

Выдает ошибку про "assign"

var a:array[1..20] of integer;    i, k:integer;    fout:text;begin for i:=1 to 20 do   a[i]:=20 - random(41);   assign(fout, 'out.txt'); rewrite(fout);  for i:=1 to 20 do  if a[i] mod 2 = 0 then   k:=k+1;    if k <> 0 then   for i:=1 to 20 do begin   if a[i] mod 2 = 0 then    write(fout, a[i], ',');  end else write(fout, 'Четных элементов массиве нет.');   close(fout);end.