ввести из текстового файла данные для массива структур

program kr1_5;   {название программы}
 
uses
  crt;{подключение модуля для работы с экраном}
 
type
  stroka = string[30];
  tovar = record   {объявление записи}
    ima: string[19];   {название товара}
    izg: string[10];   {имя изготовителя}
    god: integer;   {год выпуска}
    gar: integer;   {гарантия}
    cena: integer;   {цена}
  end;
 
var{объявление переменных}
  tov: text;
  tovtip: file of tovar;
  izgot: string;
  z, i, o, np, vp, j, k: integer;
  st, p, r: array[1..25] of tovar;
  pr: array[1..30] of integer;
  temp: tovar;
  pos1: byte;
  namefilein, namefileout: stroka;
 
begin
  write('Введите имя входного файла');
  readln(namefilein);
  write('Введите имя выходного файла');
  readln(namefileout);
  assign(tov, namefileout);
  reset(tov);
  reset(tovar);
  clrscr;
  writeln('':30, 'Список электротоваров');
  writeln('Наименование товара', '':5, 'Производитель', '':7, 'Год', '':5, 'Гарантия', '':4, 'Цена');
  readln;
  z := 1;
  repeat
    readln(tov, st[z].ima, st[z].izg, st[z].god, st[z].gar, st[z].cena);
    writeln(st[z].ima, '':6, st[z].izg, '':7, st[z].god, '':7, st[z].gar, '':7, st[z].cena);
    write(tovtip, st[z]);
    z := z + 1;
  until eof(tov);
  for i := 1 to z do
  begin
    pos1 := pos('', st[i].izg);
    while pos1 > 0 do
    begin
      delete(st[i].izg, pos1, 1);
      pos1 := pos('', st[i].izg);
    end;
  end;
  writeln('Количество товаров', z);
  readln;
  write('Введите изготовителя:');
  readln(izgot);
  write('Введите нижний предел цены:');
  readln(np);
  write('Введите верхний предел цены:');
  readln(vp);
  writeln(' Отсортированный список:');
  writeln;
  k := 0;
  for i := 1 to z do
    if(st [i].izg = izgot) and (st[i].cena >= np) and (st[i].cena <= vp) and (st[i].god >= 2002) and (st[i].gar >= 12) then
    begin
      k := k + 1;
      r[k] := st[i];
    end;
  for j := 1 to k - 1 do
    for i := j + 1 to k do
      if r[i].ima < r[j].ima then
      begin
        temp := r[i];
        r[i] := r[j];
        r[j] := temp;
      end;
  writeln('Количество найденных товаров', k);
  for i := 1 to k do
    writeln(r[i].ima, '':6, r[i].izg, '':7, r[i].god, '':7, r[i].gar, '':7, r[i].cena);
  readln;
  close(tov);
  close(tovar);
end.

program laba5;
type
  student=record
  fio:string;
  gruppa:integer;
  usp:array[1..5] of byte;
end;
 
var
fstud:file of student;
u:student;
s,i,k,j:byte;
fs:string;
sr:real;
flag:boolean;
st:array[1..25] of student;
begin
while s<>4 do
begin
writeln('1) input data');
writeln('2) read data from file');
writeln('3) outpute otlichniki');
writeln('4) exit');
readln(s);
case s of
1:
begin
writeln('input name of file:');
readln(fs);
assign(fstud,fs);
rewrite(fstud);
write('input kol-vo of student:');
readln (k);
for i:=1 to k do
begin
writeln('input data of ',i,' student');
writeln('fio');
readln(st[i].fio);
writeln('gruppa');
readln(st[i].gruppa);
for j:=1 to 5 do
begin
writeln('input 5 ocenok');
readln(st[i].usp[j]);
end;
write(fstud,st[i]);
end;
close(fstud);
end;
2:
begin
writeln('input file of student:');
readln(fs);
assign(fstud,fs);
reset(fstud);
i:=1;
repeat
j:=1;
read(fstud,u);
st[i]:=u;
i:=i+1;
{,st[i].fio,st[i].gruppa,st[i].usp[j]);
j:=j+1;
readln(st[i].usp[j]);
j:=j+1;
readln(st[i].usp[j]);
j:=j+1;
readln(st[i].usp[j]);
j:=j+1;
readln(st[i].usp[j]);
i:=i+1;}
until eof(fstud);
for j:=1 to i do
begin
writeln(st[j].fio,' ',st[j].gruppa,' ',st[j].usp[1],' ',st[j].usp[2],' ',st[j].usp[3],' ',st[j].usp[4],' ',st[j].usp[5]);
writeln;
writeln('horoshisty:');
flag:=false;
for j:=1 to i do
begin
if ((st[j].usp[1]=4) or (st[j].usp[1]=5)) and ((st[j].usp[2]=4) or (st[j].usp[2]=5)) and ((st[j].usp[3]=4) or (st[j].usp[3]=5)) and ((st[j].usp[4]=4) or (st[j].usp[4]=5)) and ((st[j].usp[5]=4) or (st[j].usp[5]=5)) then
begin
writeln(st[j].fio,' ',st[j].gruppa,' ',st[j].usp[1],' ',st[j].usp[2],' ',st[j].usp[3],' ',st[j].usp[4],' ',st[j].usp[5]);
flag:=true;
end;
if flag:=false then
writeln('takih studentov net');
end;
end;
end;
end;
end.