Помогите с Turbo Pascal

[ohotnik]

Люди добрые, извините, что к вам обращаюсь... Сам я не программист! Помогите, кто может выполнить задание:
Задана матрица А(М;N) действительных чисел. Преобразовать элементы матрицы по следующему правилу: если величина a(i;j) = 0, то заменить её еденицей, в противном случае - возвести в квадрат. Подсчитать сумму элементов преобразованной матрицы.
Всё это дожно быть написано в TurboPascal!
Заранее благодарен!!!!!

[eoln]

const
  n = 5; m = 6;
var
  mas: array[1..m, 1..n] of byte;
  i, j: byte;
  s: word;
begin      randomize;
  for i := 1 to m do
  begin
    for j := 1 to n do
    begin
      mas[i, j] := random(5);
      write(mas[i, j]:3)
    end;
    writeln
  end;

  s := 0;
  for i := 1 to m do
  for j := 1 to n do
  begin
    if mas[i, j] = 0 then mas[i, j] := 1
    else mas[i, j] := sqr(mas[i, j]);
    s := s + mas[i, j];
  end;

  writeln;
  for i := 1 to m do
  begin
    for j := 1 to n do write(mas[i, j]:3);
    writeln
  end;
  writeln('Sum = ', s);
  readln
end.

[puporev]

Для ТС.

Задана матрица А(М;N) действительных чисел.

Действительные числа не обязательно целые. Поэтому нужно написать тип real; и сделать форматированный вывод на экран, например a[i,j]:6:2;

[ohotnik]

Спасибо большое! Очень помогли!

[Rycel]

Нужен исходник игры Домино (козел) на Turbo pascale
или подробный план действий для самостоятельного написания программы.