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.

program cool_text_editor;
var s:string;
procedure createfile(name:string);
begin
   assign(output,name+'.txt');
   rewrite(output);
   close(output);
end;
begin
   repeat
     read(s);
     if s='create' then createfile('test') else exit;
   until false;
end.

...
if (command='CREATEFILE') or (command='CREATE') then createfile(argument[0]) else
...

var i:byte; request:string;
...
repeat
   readln(request); //считываем строку
   for i:=1 to length(request) do request[i]:=upcase(request[i]); //переводим все буквы в верхний регистр,
   //т.е. open=OpEn=opEN=...и так далее...=OPEN
   if request='OPEN' then ... else //если запрос "открыть" - открываем файл
   if request='CREATE' then ... else //если... то...
   if request='RENAME' then ... else
   if request='DELETE' then ... else
   //далее необходимое число блоков if request=<запрос> then <инструкции> else...
   if request='HELP' then writeln('blablabla') else //вывод справки, ага?
   if request='EXIT' then exit else //выходим из цикла
   writeln('Incorrect request!'); //сообщаем, что запрос неверный
until false;
...
end.