Форум АНТИЧАТ - Показать сообщение отдельно - Студентам с лабораторными сюда

[PASCAL] Помогите доделать лабу или исправьте что не так...

Вот текст задачи: Дайн файл f, компоненты которого являются действительными числами. Число компонентов файла кратно 4-м.
Получить в файле g среднее геометрические значения по каждым 4-м компонентам файла f.

Код:

program textfile;
uses crt;
var f:text;
    s:string;
    k,code,i,s1:integer;
    m:array [1..20] of integer;
begin
clrscr;
assign(f,'H:\f.txt');
reset(f);
 while not eof(f) do begin
  readln(f,s);
  writeln('Stroka deistvitelnix chisel');
  writeln(s); end;
  Val(s,k,code);
   writeln(k);

(тут что то надо дописать)

  close(f);
  readln;
end.