задачки

[by_Igorek]

program Project2;
{$APPTYPE CONSOLE}
uses
SysUtils;
const MaxCountRec = 20;
type
r=record
f:string[15];
i:string[15];
o:string[15];
oc1:2..5;
oc2:2..5;
oc3:2..5;
end;
var
f:text;
k,n,i:Integer;
mas:array[1..MaxCountRec]of r;
procedure getzapis(var t:r);
var s: string; c: char;
begin
s := '';
read(f, c);
while c <> ' ' do begin
s := s + c; read(f, c);
end;
t.f := s; s := '';
while c = ' ' do read(f, c);
while c <> ' ' do begin
s := s + c; read(f, c);
end;
t.i := s;
Read(f,t.oc1); Read(f,t.oc2); Readln(f,t.oc3);
end;
begin
k:=0; n:=0;
Assign(f,'f.txt');
Reset(f);
while not Eof(f) and (n<=MaxCountRec) do begin
Inc(n);
getzapis(mas[n]);
end;
Close(f);
for i:=1 to n do
with mas[i] do
if (oc1>=4)and (oc2>=4) and(oc3>=4) then
inc(k);
Writeln(k);
readln;
end.

оценки не считываются из файла

Скориков Степан 3 5 4
Фандорин Эраст 5 5 5
Князев Денис 2 3 4
Тушканчиков 2 3 3
Дамман Яна 4 5 4
Макарова Ольга 5 5 5

_____________________

1. Название темы должно адекватно отражать СУТЬ решаемой задачи или проблемы

2. Опрос не надо создавать, если он не нужен

3. Исходный код нужно оформлять тегами (
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(кнопочка на панели форматирования с решёточкой #)

Не забывайте об этом!

Модератор.

p.s. И я бы на вашем месте тему создавал в разделе "Помощь студентов",
больше шансов получить помощь...

[Человек_Борща]

1. Опрос убрать.
2. пост оформить ПО ПРАВИЛАМ.
3. НАПИСАТЬ ЧТО У ВАС В КОДЕ НЕ ПОЛУЧАЕТСЯ

ТЕЛЕПАТОВ НЕТ.

И только после этого, вам может помогут.