Компилятор в паскале пишет: строка 18 нет перегруженной подпрограммы с такими типами параметров program shifr; var s1, s2: string; i, n, k, p: integer; key: integer; //ключ шифрования f1, f2: text; begin assign(f1, 'dannie.txt'); assign(f2, 'shifr.txt'); reset(f1); rewrite(f2); writeln('введите ключ шифрования от 1 до 33: '); readln(key); while not(eof(f1)) do begin readln(f1, s1); s2: =''; for i: =1 to length(s1) do s2: =s2+chr(ord(s1[i]+key)); writeln(f2, s2); end; close(f1); close(f2); end.

В строке
s2:=s2+chr(ord(s1[i]+key));
скобка не на месте. Надо так:
s2:=s2+chr(ord(s1[i])+key);

А что Вас удивляет?
Ошибка в операторе s2:=s2+chr(ord(s1[i]+key));
s1 - строка, поэтому s1[i] - её i-й символ, который имеет тип char.
key - переменная типа integer.
Вы складываете char и integer. Что ожидаете получить?
В большинстве реализаций паскаля такая операция запрещена. В PascalABC.NET она допустима и результатом будет строка типа string.
Но и в этом случае функция Ord() будет вызвана неверно, поскольку её аргумент должен быть типа char, но не string.

Я так понял, нужно протабулировать функцию по переменной X в диапазоне от -3 до 3.
Так как инструментарий, который нужно использовать для табуляции, не указан, воспользовался С++. Шаг табуляции также был выбран произвольно и составил 0,1.
\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
#include <iostream>
#include <iomanip>
using namespace std;
//Функция для вычисления
float f(float x){
    return x*x*x - 8*x; //Возвращаем значение функции для текущего значения X
}
int main() {
    setlocale(LC_ALL, "Russian");
    float dx = 0.1; // Шаг табуляции
    for(float x = -3; x <= 3; x+=dx) //Перебираем X от -3 до 3 с шагом 0.1
        cout << fixed << setw(4) << setprecision(1) << "f("<<x<<") = " << setprecision(4) << f(x) << endl; // Выводим результат с новой строки
    system("pause"); // Небольшая пауза перед закрытием
    return 0;
}
\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
Результат работы:
   f(-3.0) = -3.0000
   f(-2.9) = -1.1890
   f(-2.8) = 0.4480
   f(-2.7) = 1.9170
   f(-2.6) = 3.2240
   f(-2.5) = 4.3750
   f(-2.4) = 5.3760
   f(-2.3) = 6.2330
   f(-2.2) = 6.9520
   f(-2.1) = 7.5390
   f(-2.0) = 8.0000
   f(-1.9) = 8.3410
   f(-1.8) = 8.5680
   f(-1.7) = 8.6870
   f(-1.6) = 8.7040
   f(-1.5) = 8.6250
   f(-1.4) = 8.4560
   f(-1.3) = 8.2030
   f(-1.2) = 7.8720
   f(-1.1) = 7.4690
   f(-1.0) = 7.0000
   f(-0.9) = 6.4710
   f(-0.8) = 5.8880
   f(-0.7) = 5.2570
   f(-0.6) = 4.5840
   f(-0.5) = 3.8750
   f(-0.4) = 3.1360
   f(-0.3) = 2.3730
   f(-0.2) = 1.5920
   f(-0.1) = 0.7990
   f(0.0) =  0.0000
   f(0.1) = -0.7990
   f(0.2) = -1.5920
   f(0.3) = -2.3730
   f(0.4) = -3.1360
   f(0.5) = -3.8750
   f(0.6) = -4.5840
   f(0.7) = -5.2570
   f(0.8) = -5.8880
   f(0.9) = -6.4710
   f(1.0) = -7.0000
   f(1.1) = -7.4690
   f(1.2) = -7.8720
   f(1.3) = -8.2030
   f(1.4) = -8.4560
   f(1.5) = -8.6250
   f(1.6) = -8.7040
   f(1.7) = -8.6870
   f(1.8) = -8.5680
   f(1.9) = -8.3410
   f(2.0) = -8.0000
   f(2.1) = -7.5390
   f(2.2) = -6.9520
   f(2.3) = -6.2330
   f(2.4) = -5.3760
   f(2.5) = -4.3750
   f(2.6) = -3.2240
   f(2.7) = -1.9170
   f(2.8) = -0.4480
   f(2.9) =  1.1890
   f(3.0) =  3.0000

// PascalABC.NET 3.3, сборка 1573 от 04.11.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=ArrRandom(20,-99,99); a.Println;
  var (imin,imax):=(a.IndexMin,a.IndexMax);
  Writeln('Минимальный элемент ',a[imin],', максимальный ',a[imax]);
  Swap(a[imin],a[imax]); a.Println; // меняем местами max и min
  Swap(a[0],a[a.Length-1]); a.Println // меняем местами крайние
end.

Пример
-45 78 -68 -89 -95 39 55 54 46 69 4 -36 -81 61 47 -76 0 -35 65 -47
Минимальный элемент -95, максимальный 78
-45 -95 -68 -89 78 39 55 54 46 69 4 -36 -81 61 47 -76 0 -35 65 -47
-47 -95 -68 -89 78 39 55 54 46 69 4 -36 -81 61 47 -76 0 -35 65 -45