Pascal/Turbo Pascal - Venga majos, que solo me queda esto xa acabar.

Venga chicos, que solo me queda esto xa acabar una practica de programacion jejeje. A ver, necesito saber como cojones comparar dos string a palo seco, es decir, sin tenerlos metidos por un array de caracteres.

Thenkiu por adelantado

function compara(string1,string2:string)boolean;
var
aux:boolean;
i:byte;
string1,string2:string:
begin
i:=1:
aux:=false;
if length(string1)=length(string2)then
begin
repeat
begin
if string1[i]=string2[i] then
aux:=true
else
aux:=false
i:=i+1;
end
until (aux=false) or (i:=length(string1)+1);
else
aux:=false
compara:=aux;
end;

creo que esto te valdra venga buena suerte

¿Por qué tanta complicación?...
Simplemente usa el if para comparar las dos cadenas
var
A, B: String;
begin
if A=B then WriteLn('Son Iguales')
else WriteLn('No son Iguales');
end.