помогите решит задачи

[KingRing]

помогите пожалуйста решить задачи буду очень благодарен

[NEymexa:c]

Первая задача:

uses crt;
var i,n:integer;
    A,B:text;
begin
clrscr;
 assign(a,'A.txt'); rewrite(a); {заполнение файла числами от 1 до 20}
 for i:=1 to 20 do
  begin
    writeln(a,i);
  end;
 close(a);
 assign(b,'B.txt'); rewrite(b);
 reset(a);
 while not eof(a) do {записываем во второй файл числа кратные 2}
  begin
    readln(a,n);
    if n mod 2 = 0 then
    writeln(b,n);
  end;
  reset(b);
  writeln;
  writeln('Содержимое B файла: ');
  writeln;
 while not eof(b) do {выводим содержимое из второго файла}
  begin
    readln(b,n);
    writeln(n);
  end;
  close(b); close(a);
 readkey;
end.

Вторая:

uses crt;
type
 arr = array [1..4,1..4] of real;
 b = array[1..4] of real;
const
 mas: arr = ((0.8,-0.6,1.5,4.2),
             (7.8,6.1,-4.5,5.1),
             (-8.3,-0.8,4.9,7.2),
             (5,8.1,-0.15,-0.21));

var i,j:byte;
    gh:b;
    min:real;
begin
clrscr;
  writeln;
  writeln('Исходная матрица: ');
  writeln;
  for i:=1 to 4 do
   begin
     for j:=1 to 4 do
      begin
        write(mas[i,j]:0:1,' ');
      end;
      writeln
   end;
writeln('Вектор В: ');
  for i:=1 to 4 do
   begin
     gh[i]:=mas[i,4-i+1];
   end;
  for i:=1 to 4 do
   begin
     write(gh[i]:0:1,' ');
   end;
  writeln;
  writeln('Минимальный элемент в векторе: ');
  writeln;
  min:=gh[1];
  for i:=2 to 4 do
   if gh[i] < min then min:=gh[i];
  writeln(min:0:1);
 readkey;
end.

Возможно есть недочеты в коде. Где-то, может быть, можно было сделать проще.
Более опытные подскажут.. надеюсь =)

[KingRing]

спасибо большое ))