Pascal.Файлы(СРОЧНО)

[Астасья]

Дан текстовый файл. Вывести количество содержащихся в нем символов и строк (маркеры концов строк EOLN и конца файла EOF при подсчете количества символов не учитывать).

я создала файл.Что дальше не знаю.Помогите

program fil;
uses crt;
var f:text;
a:array [1..5,1..5] of integer;
i,j,s:integer;
begin
clrscr;
for i:=1 to 2 do
for j:=1 to 2 do
begin
a[i,j]:=random(9)
end;
for i:=1 to 2 do
begin
for j:=1 to 2 do
write(a[i,j]:2);writeln;
end;
assign(f,'5.1.txt');
rewrite(f);
for i:=1 to 2 do
for j:=1 to 2 do
writeln(f, a[i,j]);
close(f);

[XTen]

Пиши, реализу! ICQ#: 410-691-984