Podłączę się pod ten temat, żeby nie zakładać nowego: wyświetla WA, u siebie na kompie sprawdzałem ( fpc 2.2.4 ) i program sprawia wrażenie działającego:
uses crt;
var ile,dlPOL: integer;
ciag: ansistring;
begin
readln(ile);
while ile>0 do begin
readln(ciag);
dlPOL:=length(ciag) div 2;
Delete(ciag,dlPOL+1,dlPOL);
writeln(ciag);
dec(ile)
end;
end.
W dlPOL program przechowuje liczbę określającą połowę długości wczytanego ciągu, a w następnej linii obcina ciąg od pozycji połowa_długości+1 do końca ( zostawiając jego pierwszą połowę w ten sposób). Będę wdzięczny za wskazanie błędu