unit mainunit;

interface

uses
   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
   Dialogs, StdCtrls;

type
   TForm1 = class(TForm)
     Label1: TLabel;
     Label2: TLabel;
     Button1: TButton;
     procedure FormCreate(Sender: TObject);
     procedure FormClose(Sender: TObject; var Action: TCloseAction);
     procedure Button1Click(Sender: TObject);
   end;

   //Описываем собственный класс на основе базового
   TMyThread=class(TThread)
     //num юзаем для того, чтобы экземпляр класса
     //мог определить, кто он есть в этом мире...
     num:byte; //короче, типа идентификатора
   protected
     //Перезаписываем виртуальный абстрактный метод Execute
     procedure Execute; override;
   public
     //Создаём собственный конструктор
     constructor Create(nm:byte);
   end;

var
   Form1: TForm1;
   th1,th2:TMyThread; //Это наши экземплярчики

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
   //Создаём два процесса, первый и второй
   th1:=TMyThread.Create(1);
   th2:=TMyThread.Create(2);
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
   //Завершаем поток и удаляем экземпляры
   th1.Terminate;
   th2.Terminate;
end;

//Конструктор класса
constructor TMyThread.Create;
begin
   num:=nm; //Сохраняем тип
   //Следующая переменная, заданная в true,
   //удаляет экземпляр сразу после остановки
   FreeOnTerminate:=true;
   //Вызываем TThread.Create с параметром
   //CreateSuspended=true, т.е. поток изначально остановлен;
   //если false - поток запускается сразу после создания
   inherited Create(true);
end;

procedure TMyThread.Execute;
begin
   //Бесконечный цикл
   repeat
     //Выбираем действие по типу
     case num of
     1: form1.Label1.Caption:=inttostr(strtoint(form1.Label1.Caption)+1);
     2: form1.Label2.Caption:=inttostr(strtoint(form1.Label2.Caption)+1);
     end;
     //Делаем паузу
     sleep(500);
   until false;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
   //Переключаем состояние потоков: вкл/выкл
   if th1.Suspended then
   begin
     th1.Resume;
     th2.Resume;
   end else
   begin
     th1.Suspend; //Suspend - приостановка, но не завершение
     th2.Suspend;
   end;
end;

end.

var path:string; ok:boolean;

procedure right;
begin
   writeln(Иван Царевич потерял коня, упал о землю, тут ему и конец пришёл.');
end;

procedure left;
begin
   writeln('Иван Царевич голову сложил и умер.');
end;

procedure forward;
begin
   writeln('Иван Царевич пошёл прямо вперёд, и невесту нашёл. Жили они вместе долго и счастливо.');
end;

begin
   writeln('Подошёл Иван к камню, а на камне три надписи - три пути для Ивана:');
   writeln('направо - "Коня потеряешь"');
   writeln('налево - "Голову сложишь"');
   writeln('вперёд - "Невесту найдешь"');
   ok:=true;
   repeat
     if not ok then writeln('Неверное направление!');
     ok:=true;
     writeln('Куда пойти Ивану-Царевичу?');
     readln(path);
     if path='направо' then right else
       if path='налево' then left else
         if path='вперёд' then forward else
           ok:=false;
   until ok;
   readln;
end.

var path:string; ok:boolean;
begin
   writeln('Подошёл Иван к камню, а на камне три надписи - три пути для Ивана:');
   writeln('направо - "Коня потеряешь"');
   writeln('налево - "Голову сложишь"');
   writeln('вперёд - "Невесту найдешь" ');
   ok:=true;
   repeat
     if not ok then writeln('Неверное направление!');
     ok:=true;
     writeln('Куда пойти Ивану-Царевичу?');
     readln(path);
     if path='направо' then writeln(Иван Царевич потерял коня, упал о землю, тут ему и конец пришёл.') else
       if path='налево' then writeln('Иван Царевич голову сложил и умер.') else
         if path='вперёд' then writeln('Иван Царевич пошёл прямо вперёд, и невесту нашёл. Жили они вместе долго и счастливо.') else
           ok:=false;
   until ok;
   readln;
end.

type
   tsomerecord=record
     text:string[20]; //строка фиксированной длины; всегда занимает 20 байт
   end;
...
var
   somefile:file of tsomerecord; //типизированный файл записей
   somerecord:tsomerecord;
...
   read(somefile,somerecord);
   write(somefile,somerecord);

type
   tsomerecord=record
     text:string; //строка неопределённой длины; может иметь разную длину
     number:word;
   end;
...
var
   somefile:file; //нетипизированный файл; в нём можно использовать только blockread/blockwrite
   somerecord:tsomerecord;
   buf:byte;
...
//Чтение:
   reset(somefile,1); //1 означает, что за один раз считывается/записывается 1 байт
   blockread(somefile,buf,1); //считываем один байт - это у нас будет длина строки
   setlength(somerecord.text,buf); //не уверен, но вроде бы строке сначала нужно длину задать
   blockread(somefile,somerecord.text[1],buf); //считываем buf блоков по байту в строку text
   blockread(somefile,somerecord.number,2); //считываем два блока по байту в переменную
   //number типа word, т.к. тип word занимает 2 байта
...
//Запись:
   rewrite(somefile,1);
   buf:=length(somerecord.text);
   blockwrite(somefile,buf,1); //записываем длину строки - один байт
   blockwrite(somefile,somerecord.text[1],buf); //записываем buf байт из строки
   blockwrite(somefile,somerecord.number,2); //записываем число number из 2 байт