Ошибка в коде, пишет что ожидает END, но всё закрыто ендами. и так далее

 
  // считывание
  procedure readqq(head,curr:ukaz);
  var c:char;
      i:integer;
      stroka:string;
  begin
    while not Eof(inp) do
      begin
        Read(inp, c);
        i:=1;
        curr^.nom:=0;
        curr^.fam:='';
        curr^.imya:='';
        curr^.otch:='';
        until c<>' ' do  //пишет что ждет END но обнаружен until
          begin         //ждет ";" но обнаружен бегин
            if (curr^.nom>=0) and (curr^.nom<=9) then i:=i*10;    //пишет не объявлено "i"
            curr^.nom:=curr^.nom*i+strtoint(c); //пишет не объявлено "c"
          end;   //ждет точку но нашел точку запятую...
        until c<>' ' do
            curr^.fam:=curr^.fam+c;  //ожидает конца файла, но нашел ФАМ
        until c<>' ' do
            curr^.imya:=curr^.imya+c;
        until c<>' ' do
            curr^.otch:=curr^.otch+c;
        curr:=curr^.next;
        readln(inp,stroka);
      end;
  end;

Repeat 
   Statement1; 
  {Statement2;
   ...} 
Until Expression

var
   num, sqrNum : Integer;
 
 begin
   num := 1;
   sqrNum := num * num;
 
  // Показ квадратов целых чисел, пока мы не достигли значения 100
   Repeat
    // Показ квадрата числа
     ShowMessage('Квадрат '+IntToStr(num)+' = '+IntToStr(sqrNum));
 
    // Приращение числа
     Inc(num);
 
    // Возведение в квадрат
     sqrNum := num * num;
   Until sqrNum > 100;
 end;

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Menus, Tabs;
 
type
  TForm1 = class(TForm)
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    Label1: TLabel;
    Button1: TButton;
    Edit1: TEdit;
    Button2: TButton;
    TabSet1: TTabSet;
  // procedure Button1Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
 
 
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
      mass1 =array[1..10] of string;
   mass2 =array[1..10,1..50] of integer;
 ukaz=^stud;
   stud = record
      nom: integer;
      fam, imya, otch, group :string;
 
      ocen : mass1;
      pos : mass2;
      pre,next : ukaz;
      end;
var
  Form1: TForm1;
 
  str:string;
  head,curr,t:ukaz;
  inp: textfile;
 
  implementation
 
{$R *.dfm}
//Добавить(процедура)
  procedure add(head,curr:ukaz);
  var
    t:ukaz;
  begin
    new(t);
    new(head);
    t^.fam := InputBox('Ввод информации о новом студенте', 'Введите фамилию', '');
    t^.imya := InputBox('Ввод информации о новом студенте', 'Введите имя', '');
    t^.otch := InputBox('Ввод информации о новом студенте', 'Введите отчество', '');
    ShowMessage('curr^.nom  '+inttostr(curr^.nom)+'  t^.nom  '+inttostr(t^.nom));
    t^.nom := curr^.nom+1;
    ShowMessage('curr^.nom  '+inttostr(curr^.nom)+'  t^.nom  '+inttostr(t^.nom));
 
    if head = nil then
      begin
 
            if t = nil then  ShowMessage('t - нил');
        head := t;
        curr :=head;
        head^.fam:=t^.fam;
        head^.imya:=t^.imya;
        head^.otch:=t^.otch;
        // if head = nil then ShowMessage('хеад - нил');
          //  if t = nil then  ShowMessage('t - нил2');
            //if curr = nil then  ShowMessage('curr - нил2');
      end
    else
      begin
        curr^.nom:=curr^.nom+1; //t
        curr^.next := t;
        curr := t;
      end;
    Assign(inp,'in.txt');
    Append(inp);
    writeln(inp,curr^.nom,' ',curr^.fam,' ',curr^.imya,' ',curr^.otch);
    close(inp);
 
 
  end;
//ЗАКРЫТЬ
  procedure TForm1.Button2Click(Sender: TObject);
    begin
      close;
    end;
//Кнопка запуска процедуры добавить...
  procedure TForm1.N2Click(Sender: TObject);
    begin
      add(head,curr);
    end;
//Удалить (процедура)
procedure del(head,curr:ukaz);
    begin
      curr:=head;
      while curr^.nom<>strtoint(InputBox('Удаление записи о студенте', 'Введите номер студента', '')) do
          curr:=curr^.next;
      curr:=curr^.next^.next;
      curr:=head;
      assignfile(inp,'in.txt');
      rewrite(inp);
      curr^.nom:=0;
      while curr^.next<> nil do
        begin
          curr^.nom:=curr^.nom+1;
          writeln(inp,curr^.nom,' ',curr^.fam,' ',curr^.imya,' ',curr^.otch);
          curr:=curr^.next;
        end;
      close(inp);
          end;
 
    //Кнопка запуска процедуры удалить...
  procedure TForm1.N3Click(Sender: TObject);
    begin
      del(head,curr);
    end;
 
  // считывание из файла и сохранение в динамический массив (head,curr);
  procedure readqq(head,curr:ukaz);
  var c:char;
      i:integer;
      stroka:string;
  begin
  new(curr);
    while not Eof(inp) do
      begin
        Read(inp, c);
        i:=1;
        curr^.nom:=0; //!!!!!!!!!!!!!!!!!!Ошибка!!!!!!!!!!!!!!!!!!!!!
        curr^.fam:='';
        curr^.imya:='';
        curr^.otch:='';
        repeat
            if (curr^.nom>=0) and (curr^.nom<=9) then i:=i*10;
            curr^.nom:=curr^.nom*i+strtoint(c);
          until c<>' ';
        repeat
            curr^.fam:=curr^.fam+c;
          until c<>' ';
        repeat
            curr^.imya:=curr^.imya+c;
          until c<>' ';
        repeat
            curr^.otch:=curr^.otch+c;
          until c<>' ';
        curr:=curr^.next;
        readln(inp,stroka);
      end;
  end;
 
 
///////////////////////////////////////////////////////////////////
///  САМА ПРОГА/////////////////////////////////////
///  ///////////////////////////////////////////////////
 
begin
  new(curr);
  new(t);
  new(head);
  curr^.nom:=0;
  assignfile(inp,'in.txt');
  reset(inp);
  readqq(head,curr);
          ShowMessage(inttostr(curr^.nom)+curr^.fam+curr^.imya+curr^.otch+'        CURRRRRRRRRRRRRRR');
          ShowMessage(inttostr(head^.nom)+head^.fam+head^.imya+head^.otch+'        11111111111111111111111111!!!');
  close(inp);
 
end.