Помогите решить 3 задачи

[puporev]

Вот нормально работает, только вводить аккуратно нужно, не путая данные.

uses crt;
type Tuch=record  //немного поправил
fam:string;
ball:string;
klass:byte;
bukva:char;
end;
var f:file of Tuch;
    sp:array[1..100] of Tuch;//массив записей
    i,n:integer;
    s:string;
begin
s:='c:/fff.txt';//можно любое расширение, например *.dat
assign(f,s);    //файл все равно типизированный и без программмы
rewrite(f);      //его не прочитаешь
write('n=');readln(n);
for i:=1 to n do 
    begin
	 writeln('Uchenik ',i);
      write('Familia: ');readln(sp[i].fam);
      write('Ball: ');readln(sp[i].ball);
      writeln('Klass: ');readln(sp[i].klass);
      writeln('Bukva: ');readln(sp[i].bukva);
      write(f,sp[i]);
    end;
close(f);
reset(f);
n:=0;
While not eof(f) do
   begin
      n:=n+1;
      read(f,sp[n]);
   end; 
writeln;   
writeln('Spisok uchenikov 9a klassa:');   
for i:=1 to n do
    begin
      if (sp[i].klass=9) and (sp[i].bukva='a')then
	    writeln('Familia ',sp[i].fam,' Ball=',sp[i].ball);
    end;
writeln;
writeln('Spisok uchenikov 9b klassa:');
for i:=1 to n do
    begin
      if (sp[i].klass=9) and (sp[i].bukva='b')then
  	  writeln('Familia ',sp[i].fam,' Ball=',sp[i].ball);
    end;
writeln;
writeln('Spisok uchenikov 10a klassa:');
for i:=1 to n do
    begin
      if (sp[i].klass=10) and (sp[i].bukva='a')then
	    writeln('Familia ',sp[i].fam,' Ball=',sp[i].ball);
    end;
writeln;
writeln('Spisok uchenikov 10b klassa:');
for i:=1 to n do
    begin
      if (sp[i].klass=10) and (sp[i].bukva='b')then
   	  writeln('Familia ',sp[i].fam,' Ball=',sp[i].ball);
    end;
readln;
close(f);
end.

[VANOLORD]

Спасибо-спасибо-спасибо! а если надо не только а и б буквы, а дальше до д например. надо просто тот кусочек вставить ещё с нужной букво, так?

[VANOLORD]

А можно ещё один вопрос. Если не сложно, посмотрите пожалуйста. Вот задача на двунаправленные списки, но там указывает на ошибку в этой вот строчке. что там опять не так???
Дан список слов. Подсчитать кол-во верных равенств среди S1=S(n), S2=S(n-1), где Si-элемент списка.
Type TLisp=^TNode;
TNode=record
pred:TLisp;
info:string;
next:TLisp;
end;
Var p,h,g:TLisp;
s:string;
k:integer;
begin
writeln('vvedi s');
readln(s);
new(p);
p^.info:=s;
p^.pred:=nil;
p^.next:=nil;
readln(s);
while s<>0 do begin
new(q);
q^.info:=s;
q^.pred:=p;
q^.next:=nil;
p:=q;
readln(s);
end;
k:=0;
p^.pred:=p^.info;
p^.next:=q^.pred;
while p<>q do begin
if (p^.pred=q^.next) and (p^.next=q^.pred)
then k:=k+1;
end;
writeln(k);
end.

[puporev]

1. Можно все классы с 1 по 11 и все буквы от а до я, если не лень писать.
2.

while s<>0 do begin

s:string a 0:число, сравнивать их нельзя. Я не знаю, что здесь подразумевалось, думаю что если строка не пустая, то нужно писать или
if s<>'' then begin,
или if length(s)>0 then begin
3. В переменных объявлена g, а в тексте q.
4.Ошибка в строке p^.pred:=p^.info; разные типы Tlist и string.
Как правильно, я не знаю, поскольку с указателями и списками не дружу.

[puporev]

Во время отправки ответа завис сайт и получилось два ответа, увидел только сегодня.

[VANOLORD]

Спасибо Вам большое, что так много внимания уделяете моим задачам!

[VANOLORD]

Можете ещё с одной вот помочь.

//Один вопрос - одна тема. Закрыто. Alex21