Составьте программу записывающую в файл одномерный массив случайных чисел, а затем считывающую его с диска и выполняющую запись четных элементов в другой файл (на Паскале)

program untitled; var t,t2:text;     i,a:integer;     m:array [1..50] of integer; begin randomize; assign(t,'output.txt'); assign(t2,'output2.txt'); rewrite(t);  for i:=1 to 50 do begin  m[i]:=random(50);  writeln(t,m[i]); end;  reset(t); rewrite(t2); for i:=1 to 50 do begin  readln(t,a);  if a mod 2=0 then   writeln(t2,a);  end;  close(t); close(t2); end.