Быстрая сортировка

[(Нафаня)]

Что вообще у меня бред получается. Посмотрите пожалуйста, что не так. Для быстрой сортировки я брала метод Хоара. В текстовом файле не более 20 строк. Напечатать эти строки в порядке невозрастания количества разных букв в них

uses
  SysUtils;
const
  n=4;
  type
  mas = array[1..n,1..n] of char;
  m = set of char;
function pod(i:integer ):integer;{Ñîçäàíèå ôàéëà}
var
  j,c:integer;
  q:m;
  a:mas;
begin
  c:=0;
  q:=[];
  for j:=1 to n do
    begin
      if (a[i,j]) in q then
        begin
          q:=q+[a[i,j]];
          inc(c);
        end;
      pod:=c;
    end;
end;
procedure Qsort(L,R:integer);
var
  x,y,i,j,c:integer;
  a:mas;
begin
  x:=a[(L+R)div 2];
  i:=L; j:=R;
  while i<=j do
    begin
      while a[i]<x do
        i:=i+1;
      while a[j]>x do
        j:=j-1;
      if i<=j then
        begin
          i:=i+1;
          j:=j-1;
        end;
    end;
  if L<j then Qsort(L,j);
  if j>R then Qsort(i,R);
end;
var
i,j:integer;
    a:mas;
begin
  for i:=1 to n do
  for j:=1 to n do
  read(a[i,j]);

[Abstraction]

У Вас QSort сортирует массив, являющийся локальной переменной функции QSort. Не могу не отметить оригинальность подхода.

[(Нафаня)]

Это сарказм?

[Stilet]

Нет. Не сраказм.
Смотри:

procedure Qsort(L,R:integer);
var
x,y,i,j,c:integer;
a:mas;
begin

Здесь переменная "а" это совершенно другая переменная, отличная от этой:

var
i,j:integer;
a:mas;
begin

Пиши так:

procedure Qsort(L,R:integer;var a:mas;);
var
  x,y,i,j,c:integer;
  
begin

И вызывай...

А стесняюсь спросить - где у тебя вызов то?

[(Нафаня)]

Не стесняйся) Его нет) Она не доделана)) Спасибо)

[Stilet]

А-а-а. Ну тогда в НГ доделаешь )