помогите закончить программу с файлами

[ZX Spectrum-128]

Да не за что
Компиляторы паскаля, не понимающие val?! Куды катится этот мир?! Ужос!

[Serge_Bliznykov]

Сообщение от ZX Spectrum-128

Да не за что
Компиляторы паскаля, не понимающие val?! Куды катится этот мир?! Ужос!

заступлюсь за уродца...
Pascal ABC понимает VAL

только к типам параметров он очень привередлив:

Val(s,v,code) процедура s - string, v - integer, real, и code - integer преобразует строку s к числовому представлению и записывает результат в переменную v. Если преобразование возможно, то в переменной code возвращается 0, если невозможно, то в code возвращается ненулевое значение

  month:integer;
  code:byte;
  s:string;
begin
  assign(F,'anketa.dat');
  reset(F);
  while not EOF(F) do
    begin
      read (F,R);
      s:=R.dat_r[4]+R.dat_r[5];
      val(s,month,code);

достаточно исправить код на:

  end;
var
  F: file of anketa;
  R: anketa;
  a,i: real;
  month:integer;
  code:integer;
  s:string;

как это заработает в Pascal ABC

[ZX Spectrum-128]

Ладно, прощаю уродца. А что за ошибка выползала у тс по поводу strtoint "некорректный формат string"?

[робокоп]

спасибо за добрые слова( кстати у нас этот паскаль сам препод не понимает)

[Mad_Cat]

Кстати, здесь можно взять только последний символ даты

R.dat_r[5]

и вообще не заморачиваться с val и strtoint

if (ord(R.dat_r[5])-ord('0')>=3) and (ord(R.dat_r[5])-ord('0')<=5)

З.Ы у тс все таки ABC.NET судя по скрину

[ZX Spectrum-128]

Ну и перешел бы на free pascal. Сколько бы нервов сэкономил и себе, и студентам.