Массивы, процедуры/функции

[Вампирёк]

Задача1: Ввести массив F из 9 вещественных чисел с помощью типизированных константБ массив G размерности 3х3 вещественных чисел из файла и массив H из 4х псевдослучайных чисел от 0-10. Найти произведение p элементов массива G. Вывести в файл F,G,H и P.
Проверьте пожалуйста... Я в программе более менее разбираюсь но вот с введением и выведением файлов как то не оч дружу=/ и проверить из-за этого не получается..

program z1;

const F : array [1..9] of real = (1,2,3,4,5,6,7,8,9); n=10;

var t1:text;
    G: array[1..3,1..3] of real;
    H: array [1..4] of byte;
    j,i:byte; P:real;

begin
  assign (t1,'c:\pask');
  rewrite(t1)
  reset(t1);

  randomize;
  P:=0;
  for i:=1 to 3 do
  for j:=1 to 3 do
    begin
    read( t1, G[i,j] );
    P:=P * G[i,j];
    readln(t1);
    end;

  for i:=1 to n do
    begin
      H [i] :=  random(10)

    end;

end.
readln;
close(t1);
end.

Вторая задачка на использование функций/процедур...
Разработать 2 версии программы (с использованием как Function, так и Procedure) для вычисления и вывода в файл мах{f (t-2s;1;17), f(2,2;t;s-t}, где f(a,b,c) = (2a-b-sinc)/(5+|с|), s и t заданы во входном файле в 2х вариантах : s1=0,6; s2=2,8; t1=-14 t2=4,65
Прошу если и не решить то хотя бы намекнуть что тут и как -_- (в учебниках как-то криво написано..)

[Stilet]

readln(t1);

if not eof(t1) then readln(t1,Тут переменная куда будет считываться);