Помогите написать программу в Паскале

решение на Turbo Pascal (Pascal ABC = Shift + F9)

program NxM_500_x_500;
uses crt;
var a, i, j, n, code_error, ost, dlina, c: integer;
chislo, summa, m: longint;
stroka: string;
f, f1: text;
begin
{здесь ниже код на заполнение файла chisla.txt значениями наугад от 10000 до 100000}

{
clrscr;
Assign(f, 'chisla.txt');
Rewrite(f);
write (' введите количество чисел N =');
readln (n);
writeln (' ответ в файле chisla.txt');
for i:=1 to n do
Writeln (f, 10000+random (90000));
Close(f);
writeln (' Ready! ');
}

{так как данные в файле у меня упорядочены построчно, то
обращаюсь на считывание строки}

clrscr;
Assign(f, 'chisla.txt');
Assign(f1, 'otvet.txt');
Reset (f);
Rewrite(f1);
a:=0;
ost:=0;
c:=0;
while not Eof(f) do
begin
readln (f, stroka);
dlina:=length (stroka);
val (stroka, chislo, code_error);
m:=chislo;
summa:=0;
while m <> 0 do
begin
ost:= m mod 10;
m:=m div 10;
summa:=summa+ost;
end;
if stroka[2] = '2' then inc(c);
if summa > 30 then
begin
writeln (f1, chislo);
inc(a);
end;
end;
writeln (f1, '___________________________________________________');
writeln (f1, 'кол-во чисел сумма цифр которых более "30" = ', a);
writeln (f1, '___________________________________________________');
writeln (f1, 'кол-во чисел у которых 2-ая цифра слева "2"= ', c);
Close(f);
Close(f1);
clrscr;
writeln (' Ready! ');
readln;

end.

Сделать за вас или исправить, что не получается?

задача большая, могу только завтра до обеда, если ДА, то пришли свою почту