program... //заголовок программы - необязателен
const...
label...
type...
var...
//процедуры и функции
procedure/function... //заголовок процедуры/функции - обязателен
var... блаблабла
begin
   //тело процедуры/функции - обязательно, если заголовок не имеет директивы forward (тогда тело с дополнительным заголовком будет ниже)
end;

begin
   //тело программы
end.

const helpstr='справка'; //константа-строка
   optimal_fps=30; //константа-число, при чём целое
   v1:byte=99; //типизированная константа типа байт, фактически - переменная с заданным изначально значением
var v2:byte=99; //переменная типа байт со стартовым значением 99
//v2 идентична v1

***
begin
   //Эти две инструкции одинаковы:
   writeln(helpstr);
   writeln('справка');
   //Но вызывать статичную длинную строку из разных мест программы проще по короткому имени,
   //а чтобы изменить её, достаточно изменить константу в начале программы, и не бегать по коду.
end.

program CoolEditor; //на всякий случай, пусть имя программы будет задано
//Константа с текстом, изменять её в коде программы нельзя, только вызывать:
const HELPTEXT='Текстовый редактор by Andrey_Mironenko. Создан при помощи Free Pascal. Среда разработки - Free Pascal IDE.Введите OPEN для открытия файла, HELP - для справки, EXIT - для выхода из программы.';

var i:byte; request,s:string; //компактная запись
//Переменным лучше давать говорящие названия, если это не счётчик какой-нибудь или ещё что-то временное

procedure createfile(name:string);
begin
   //output - стандартная текстово-файловая переменная, допускает только вывод;
   //ещё есть input, только для ввода
   assign(output,name);
   rewrite(output);
   close(output);
end;

procedure openfile(name:string);
var N:string; //ведь эта переменная применяется только здесь
begin
   write('Введите имя файла: '); //"имя" может включать в себя путь к файлу
   Readln(N);
   if N<>'' then
   begin
     Assign(input, N); //используем input, если записывать в файл ничего не нужно
     Reset(input);
     //Здесь хорошо бы сделать проверку ошибки ввода-вывода,
     //считав значение ioresult (равно 0, если ошибки нет, либо код ошибки);
     //ioresult хранит код последней ошибки и обнуляется после считывания
     while not Eof(input) do
     begin
       Readln(input,N);
       Writeln(N);
     end;
   Close(input);
   end;
end;

begin
   repeat
     readln(request);
     for i:=1 to length(request) do request[i]:=upcase(request[i]);
     if request='OPEN' then openfile('') else
     if request='CREATE' then createfile('test.txt') else
     if request='HELP' then writeln(HELPTEXT) else
     if request='EXIT' then exit else
       writeln('Неправильная команда!');
until false;
end.