Необходимо найти ошибку в коде

[acecandra]

Добрый день.
Такая проблема в коде: когда выбираешь вариант "посмотреть список студентов", выдает оценки по математике и литературе, а не список студентов.
Вот задание: Разработать программу создания и корректировки файла, содержащего
сведения об абитуриентах, сдавших вступительные экзамены в институт. Каждый элемент этого файла должен содержать следующие данные: фамилию и инициалы абитуриента, специальность, на которую он поступает, полученные
оценки по физике, математике и литературе. Предусмотреть создание текстового файла, содержащего информацию об абитуриентах, поступающих на указанную специальность.

program STUDENT;
uses
CRT;
label
menu;
var
t:text;
a:string;
b : array [1..200] of string;
z,i,j:integer;
procedure AddSt;
begin
ClrScr;
assign(t,'st.txt');
reset(t);
i:=1;
while not Eof(t) do
begin
Readln(t,b[i]);
j:=i;
i:=i+1;
end;
close(t);
rewrite(t);
writeln(t,' ');
writeln('vvedite familiu i inicialy');
readln(a);
writeln(t,'FIO : ',a);
writeln('vvedite specialnost');
readln(a);
writeln(t,'Specialnost : ',a);
writeln('vvedite ocenku po fizike');
readln(a);
writeln(t,'Fizika : ',a);
writeln('vvedite ocenku po matematike');
readln(a);
writeln(t,'Matematika : ',a);
writeln('vvedite ocenku po literature');
readln(a);
writeln(t,'literatura : ',a);
writeln(t,' ');
for i:=1 to j do
begin
writeln(t, b[i]);
end;
close(t);
writeln('Student v spiske! nazhmite enter');
readln;
end;
procedure ListSt;
begin
ClrScr;
assign(t,'st.txt');
reset(t);
while not Eof(t) do
begin
readln(t,a);
writeln(a);
end;
close(t);
writeln(' ');
writeln('Nazhmite enter');
readln;
end;
procedure ClrSt;
begin
ClrScr;
assign(t,'st.txt');
rewrite(t);
close(t);
writeln('Spisok pust, nazhmite enter');
readln;
end;
procedure re;
begin
ClrScr;
writeln('chto vy hotite sdelat?');
writeln('1 - dobavit studenta v spisok');
writeln('2 - prosmotret spisok studentov');
writeln('3 - ochistit spisok');
writeln('0 - vyhod iz programmy');
readln(z);
if z=1 then
begin
AddSt;
end
else
begin
if z=2 then
begin
ListSt;
end
else
begin
if z=3 then
begin
ClrSt;
end
else
begin
if z=0 then
begin
halt(0);
end;
end;
end;
end;
end;
begin
assign(t,'st.txt');
rewrite(t);
close(t);
menu:
re;
goto menu;
end.

[digitalis]

Уже пальцы заболели писать новичкам об: хочешь получить ответ - выложи нормальный форматированный исходник с тегами CODE, с отступами. Потому что читать такую вот портянку - зубы сводит.
Может, найдутся мазохисты, продерутся сквозь получитаемый текст и ответят.
Как по мне, так я бы создал массив records с заданными полями и соответственно типизированный файл. Ну а выборка из массива абтуров по заданной специальности в текстовый файл - это отдельная часть задачи.

[ViktorR]

Смотрим формат вашего файла

FIO :  <фамилия И. О.>
Specialnost : <Специальность>
Fizika :  <оценка по физике>
Matematika : <оценка по математике>
literatura : <оценка по литературе>

Смотрим как читается файл (procedure ListSt

assign(t,'st.txt');
reset(t);
while not Eof(t) do
begin
readln(t,a);
writeln(a);
end;

Т.е. читаются и выводятся все строки подряд.
Вы написали:

Такая проблема в коде: когда выбираешь вариант "посмотреть список студентов", выдает оценки по математике и литературе, а не список студентов.

Но, как показано выше, это не так. Выводится вся информация, записанная в файле.
Если нужно выводить только список студентов или некоторую другую информацию, например только оценки по физике, то при чтении строки следует проанализировать её первую часть.
Для этого в процедуру следует передать фразу, по которой надо искать, например, 'FIO'.
Тогда процедура должна иметь другой вид:

procedure ListSt(s: string);
begin
ClrScr;
assign(t,'st.txt');
reset(t);
while not Eof(t) do
begin
readln(t,a);
npos := pos(s, a); {поиск подстроки s в строке a}
if npos = 0 then continue; {Продолжим поиск}
if npos = 1 then writeln(a); {Вывод без обработки, но можно удалить фразу FIO :}
...
end;

Delete(a, 1, lehgth(s)); {Удалит с позиции 1 число символов, которое передано в s}

s - это подстрока, которая передаётся в процедуру для поиска нужной строки. При этом анализируется только первая часть строк.
Если, например, FIO будет записан не с первой позиции, то такая строка будет пропущена.

Ну и, пожалуйста, забудьте про goto.
Тут это вообще ни к чему.
Вместо

menu:
re;
goto menu;

Вполне подойдёт:

while True do
   re;

И короче, и внятнее.